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ENERGY SIMULATION, A GAME WHERE YOU SELECT YOUR PREFERENCES FOR 
ENERGY USE (RICH DIET, CENTRAL HEATING* AMOUNT OF DRI VING, WASHER- 
DRYER, ETC) HOVMUCH YOU EXPECT TO "SPEND" IN EDUCATION AND IN RESEARCH 

AND DEVELOPMENT, THE PROGRAM GIVES YOU CUES AS TO THE CUALITY OF 
YOUR ENVIRONMENT. 

JUNE 19 79; DOUG C ALLEY 

/voT4g; J**!* Ci€*& u*es .... S€.€. Gno op ffto^wn 

10 CLEAR 

20 DIM AC11),BC 10),C<10),P< I 0), S< 255), T< 255>,Z $C 1) 

30 PRINT " ENilRGY" 

40 PRINT \ PRINT 

50 

6 FOR 1=1 TO 10 

70 LET ACI) = 0\BU)=0\C<I) = 

80 NEXT I 

90 LET P( 10)=0\E=200\V=1 

100 FOR 1=1 TO 100 

110 LET TU) = 0\SU)*0 

120 NEXT I 

125 LET M=0 

130 LET Y=0\G=1\A(5)=100\A<3)=1 

140 LET C=680\O=1000\G=620\H=3 3J = 3.8 

150 INPUT Z 

160 GOSUB 240 

170 GOS'TE 650 

180 GOSIB 710 

190 GOSUB 610 

200 GOSUB 920 

210 GOSTB 1070 

220 GOSVB 1180 

230 GOTO 1720 

240 CLEAR 

250 

260 LET P< 1)=0\P(3)=0\PC4)»0\P(5)=0 

270 IF Z$="Y"P< l)-P(l> + 0.75 

280 PRINT "DO YOU HAVE A SMALL B/V SET? "\ INPUT ZS 

290 

300 PRINT "DO YOU OWN OTHER f"V SETS?"\ INPUT Z$ 

310 IF ZS«"Y"P< 1 ) = P< 1 ) + 0.4 

320 PRINT "DO YOU HAVE A LARGE ' STFREO'?"\ INPUT ZS 

330 IF ZS="Y"P< 1 ) = P( 1 ) + 0.4 

340 PRINT "DO YOU OWN A DI SHWASH IR? "\ INPUT Z$ 

350 IF Z$="Y"PC3)=P<3>+0.5 

360 PRINT "DO YOU USE A WASHING MACHINE?"\ INPUT Z$ 

370 IF Z£?"Y"P<3)=P<3> + 0.3 

380 PRINT "DO YOU USE A DRYIR?"\ INPUT Z$ 

39 

420 PRINT "HOW MANY ROOMS DOES YOUR HOUSEHAVE? "\ INPUT Z 

410 IF Z=0 GOTO 400 

420 LET P(7)=Z 

430 

4 36 FOR Z=l TO 1500 

437 NEXT Z 

440 CLEAR \ PRINT "DO YOU USE AN AIR CONDITIONER? "\ INPUT Z4 

450 IF ZS="Y"P(3) = F(3)+3+P(7>/2\ PRINT "NICE,BUT A HEAVY ENERGY-USER. 

»!S0 PRINT "DO YOU HAVE AN 1VAPORATIVE COOLER? "\ INPUT Z$ 



me if z3*"y"p(3)*P(3)*B.5+P(7)/3 a, 

460 PRINT "DO YOU HAVE ELECTRIC LIGHTS?"\ INPUT ZS 

490 IF Z$="Y"P(4) = PC4>+l + PC7)/2 

495 IF ZS*"N" GOTO 540 

500 PRINT "DO YOU H iVE OUTSIDE FLOODLIGHTS? "\ INPUT Zi 

510 IF ZS="Y"P<4)=P(4>*5+P<7>/5 

7 20 CLEAR 

530 

540 PRINT "DO YOU HAVE A REFRI GS-RATOR? "\ INPUT ZS 

550 IF Z$3"N" GOTO 590 

560 IF Z£ = "Y"P(5) = FC5>*1 

570 PRINT "IS IT 'FROST FREE'?"\ INPUT Z£ 

580 

59 PRINT "DO YOU HAVE A FREIZER?"\ INPUT Z$ 

600 IF Z$="N" GOTO 640 

610 IF Z$="Y"P(5)*P(5)+1 

620 PRINT "IS IT FROST- FREE? "\ INPUT ZS 

630 IF Z£*"Y"P(5)*P(5) + 2 

640 RETURN 

650 LET PC6>*0 

660 FRINT "DO YOU HAVE CENTRAL HEATING? "\ INPUT Z$ 

670 IF Z$="Y"P(6) = P(6)-t- 10*P(7)/2 

675 IF ZS*X"Y" GOTO 700 

680 

690 IF Z$»"Y"P(6)=F(6>-3-PC7>/4 

7 00 RETURN 

7 10 PRINT "DO YOU OWN A CAR?"\ INPUT Z$ 

715 LET PC8>=0 

720 IF ZS="N" PRINT "THAT'S A RELIFF!"\ GOTO 790 

730 PRINT "HOV MANY MILES DO YOU DRIVE ONE VAY TO VORK?"\ INPUT Z 

740 LET P(8>*10+7*Z/10 

750 PRINT "DO YOU RIDE A BUS OR CAR POOL?"\ INPUT ZS 

760 IF Z$="Y"P(S)=PC8)-7*Z/20 

770 

780 LET P(8>=P(8)*< 1+CZ-2J/10) 

785 

790 FOR Z=l TO 1000 

795 NEXT Z 

797 LET Z=0 

800 RETURN 

810 CLEAR 

820 PRINT "CONSIDER A BREAKFAST MENU:" 

830 

840 LET P(9)=0 

850 PRINT "TYPE THE * OF THE MJWU WHICH BEST SUITS YOU."\ INPUT Z 

860 LET P(9> = P<9)+ 10- 2*Z 

865 CLEAR 

870 

880 

890 LtT P(9)=P(9>+20-4*Z 

900 LET Z = 

9 1 e RETURN 

920 CLEAR 

930 

931 

940 PRINT \ PRINT "EEFORE, YOU USE* : "; A( 1 >; A(2 ); M; A< 4) 

950 PRINT "INTO F* RTILIZER"\ INPUT Z 

960 LET A(1)?Z 

970 PRINT "INTO CULTI VATI ON? "\ INFUT Z 

980 LET A(2)» Z 

990 PRINT "INTO R&D"\ INPUT M 

1010 

1020 LET A(4)-£ 

1030 LET Z=A(1> 

1040 IF AC2XA(1)Z=A(2) 



1050 

1060 

1065 

1070 

108 

1100 

1 110 

1120 

1130 

1160 

1170 

1180 

1190 

1200 

1205 

1206 

1207 

1210 

1212 

1213 

1230 

1245 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1345 

1347 

1350 

1360 

1370 

1371 

1380 

1390 

1400 

1410 

1620 

1430 

1440 

1450 

1660 

1470 

1480 

1490 

1500 

1510 

17 20 

1530 

1 540 

1550 

1760 

1670 

1580 

1590 

1600 

1610 

1620 

1625 

1630 



LET Z = 

RETURN 

PRINT "HOW MUCK EN IRGY DO YOU WANT TO 
IF M>10L*10\ PRINT "MAX IS 10 EU." 
PRINT "HOW MICH ENERGY DO YOU WANT TO 
IF F>10F»10\ PRINT "(MAX IS 10)" 
LET F*F+Z 

PRINT "WHAT IS A REALISTIC POPULATION 

LET Z = 

RETVRN 

CLEAR 

REM 

LET 

LET 

LET 

IF 



INVEST IN EDUCATION? "\ INPDT 
USE IN REFORESTATION? "\ IN0VT 

GROWTH J?"\ INPUT K 



CALCULATE ANOTHER YEAR- NO CHANGES 
P=03J=0 
AC11XAC11XM 
AC3XCAC 1 l>/AC3)+AC3>>/2 
AES( A< 1 1>/AC3)-AC3))>=0.001 



GOTO 1206 
LET TCY+10XAC3) 

LET R=l*K/100-S(Y)/200\ IF AC5X 0R=R+ AC 5)/200 
IF Y^20RsR*l .03 

LET P=PC1) + PC2> + PC3) + PC4XP(5) + PC6XP(8> 
LET SCY+05XL 
LET YsY+l\Q=Q*R 

LET C=C-C< l)\O=0-C(2)\G=G-CC3)\H=3+T(Y)\N=3.6+T(Y)/3 

IF C<0 PRINT "IMPOSSIBL J"\ 

IF O<0 PRINT "IMPOSSIELG"\ 

IF G<0 PRINT "IMPOSSIBLE"\ 

IF H<0 PRINT "IMPOSSIBLE"\ 

IF N<0 PRINT "IMPOSSIBLE"\ 

LET A=A( 1) + A(2XM+AC4> 

LET Z=AC1>\ IF AC2XAC1 >Z=AC2) 

LET A(5XAC5)-A<4>/2+TCY>*2+Z*2-PC9)*Q+6 

IF AC 5X0 PRINT "PEOPLE STARVED ! "\R*R+ AC 5J/500 

IF AC5X-5 PRINT \ PRINT "MALNUTRITION AND PESTILENCE! "\ 

LET D=P+A+S+F 

LET E*E+CC 1)+CC2) + CC3) + CC4) + CC5)-D*1.5*Q 

PRINT "S02 IN AIR IS";BC2) 
IF E<0VfcV+E/5000YE=0 



GOTO 


I960 


GOTO 


1980 


GOTO 


I960 


GOTO 


1980 


GOTO 


1980 



PRINT 



IF V<0.25 PRINT "THE CO IN TRY 
LET BC 1 XEC 1 XCC 1 >/C3+0. 1*F>- 
IF BC 1X0BC1X0 



IS BANKRUPT'S 
F/20 



LMD 



IF BC1X70 PRINT \ PRINT "I CAN HARDLY BREATHE"\ PRINT \ PRINT 

IF BC1)>50 PRINT "THE AIR IS TERRIBLE" 

LET BC2)» BC2XCCC 1 ) + CC2 ) + CC 3) )/C 10+0. 3* F)- F/10-J 

IF BC2X0BC2X0 



IF BC2)>60 PRINT "THE AIR IS BAD" 

LET BC3)=EC3) + C(5)/2*CC 1 >/20- 0. 005*5( 3> 

IF BC3X0BC3X0 



IF BC3)>50 PRINT "**DANGER OF RADIATION SICKNESS**"\ PRINT 

LET Z=0 

RET/RN 

CLEAR 

REM CHOOSE AMO'tN TO F COAL/ OIL/ ETC TO USE TO 

PRINT "THE AVAILAELE J1NERGY IS"; 

PRINT " COAL OIL GAS NON-POLUT NUCLEAR" 

POKE 240/ 0\ PRINT C;0;G/\ POKE 240/ 2\ PRINT H; N 



SUPPLY ENERGY 



1650 
1660 
1670 
1630 
169 
1710 
1720 
1730 
1740 
1745 
1750 

17 60 
1770 
1780 
1790 
1800 
1810 
1620 

18 30 
1835 
1840 
16 50 
1660 
1870 
1880 
1890 
1900 
1910 

19 20 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



IF 
IF 
IF 
IF 
IF 



C<C(1) PRINT "IMPU:»l>lBLE"\ GOTO 1600 y 

0<C(2) PRINT "IMPOSSIBL 1"\ GOTO 1600 7 

G<CC3) PRINT "IMPOSSIBL* 1"\ GOTO 1600 

H<CC4> PRINT "IMPOSSIBL* "\ GOTO 11600 

N<CC5> PRINT "IMPOSSIBLE"\ GOTO 1600 
RET IRN 
CLEAR 

PRINT "P'RS.E.DEMANti ": D: "Et.POP:":Q 
PRINT "FIR. FOOD NEEDS";P<9) 

IF AC5X0 PRINT "NO FOOD! PEOPLE ST/RVED "\G«Q+ AC 5>/500 
PRINT "THE AVAILABLE ENERGY IS:"; 
PRINT " COAL OIL GAS HYDRO NUCLEAR" 

POKE 240* 0\ PRINT C;0;G*\ POKE 240* 2\ PRINT H* N 
PRINT "USEF:";CC1>;CC2);CC3>*CC4)*CC5> 
PRINT "ENVIRNtPARTIC S02 RADIATION" 
PRINT " ":EC1 )- BC2)-BC3) 

PRINT "FOODPOOKs": ACS); "ENERGYPOOL: "J E 

POKE 240* 2\ PRINT "THE DOLLAR IS WORTH"; V; \ POKE 240* 0\ PRINT "YEB 
PRINT "CHOOSJ:"\ INPUT Z 
IF Z>0 IF Z<9 GOTO 1870 



INPUT Z 
IF Z=0 GO SUB 
IF Z=l GOSUB 
IF Z=2 GOSyB 
IF Z*3 GOSWB 
IF Z=4 GOSWB 
IF Z=5 GOSUB 
IF Z=6 GOSUB 
IF Z = 7 GOSOB 
IF Z = 6 GOSUB 
GOTO 1830 
END 

LET C=C+CC1)\0 
GOTO 1600 



1160 

240 
650 
7 10 
610 
920 
107 
1720 
1580 



=0+CC2)\G=G+CC3> 



50 PRINT "CAN YOU StRVIVE IN TH 
IS WORLD? IN THIS SIMULATION YO 
U ARE ONLY ONE PFRSON BUT WE SHA 
LL ASSUME THAT ALL PEOPLE LIVE 
AS YOU DO. WE NEED TO KNOW HOW Y 
OU WANT TO SPJWD YO IR 'NERGY." 

250 PRINT "THIS SECTION ASKS AB 
OUT HOUSEHOLD USE OF INE 

RGY. DO YOU HAVE A CONSOLE COLOR 

VV?"\ INPUT ZS 
260 LET PC 1)=0\PC3)=0\PC4)»0\PC 
5)=0 

270 IF Z&?"Y"PCl>*PCl> + 0.75 
28 e PRINT "DO YOU HAVE A SMALL 
B/W SET?"\ INPUT Z$ 
290 IF Z$="Y"PC l) = PC 1 )+0.2\ IF 
PC1> = 0.2 PRINT "THAT'S GOOD* THE 
Y DON'T TAKE M/ CH POWER." 



390 IF Z$» "Y"PC3) = PC3>«- 1»4\ PRI 
NT "DO YOU REALLY NEED ONE? WELL* 
KEEPIT FOR NOW." 

400 PRINT "HOW MANY ROOMS DOE 
S YOVR HOUSEHAVE?"\ INPUT Z 
410 IF Z=0 GOTO 400 
620 LET PC7>» Z 

430 CLEAR \ PRINT "I SHALL ASK 
ABOUT AIR CONDITIONERS 

fUL GVAPORATIVE COOL IRS." 

530 IF ZS* "Y" PRINT "PLEASE CHE 

CK WITH YOUR LOCAL OBSERVATOR 

Y ABOUT LIGHT POLLUTION" 

\ PRINT \ PRINT \ PRINT 

540 PRINT "DO YOU HAVE A REFRIG 

FRATOR?"\ INPUT Z$ 

550 IF ZS>"N" GOTO 590 

560 IF ZS»"Y"PC5)*PC5>*1 



570 PRINT "IS IT 'FROST FREE'?" 

\ INPUT ZS 

580 IF Z$ = "Y"PC5)*P<5> + 2\ PRINT 

'•NEXT TIME BUY THE KIND YOU 
DGFROST YOWRSENF AND S/VE ENER 
GY" 
680 PRINT "DOYOU HAVE EXCELLENT 

INSULATION AND WEATHERSTRIPPING 
, AND KEEP YOUR THERMOSTAT LOV? 
"\ INPUT Z$ 

77 PRINT "DO YOU COMI ONLY DRIV 
E AU: D45MPH 2>55MPH 

3J65MPH 4>70MPH 5>MOR ? "\ I 

NPUT Z 

780 LET P<8)*P<8>*< l+CZ-2>/10> 
785 IF Z>*3 CLEAR \ PRINT "YOU 
KNOW If TAKES MORE GASOLINE TO D 
RIVE FAST.1R, DON'T YOU?" 

830 PRINT "1 BACON, EGGS, TOAST* 



COFFEE, 

UICE> MILK 

ON GREFNS, 
RANG 1" 

87 PRINT 

NGR MGNU, 

CHOICE BY 

iIR." 

880 PRINT 

GET ABLE, CAK 



FRFNCH TOAST 

2 PANCAKES, ORANGE J 

3 MILK AND CEREAL 

4 WATJR AND DANDELI 
GRAPEFRUIT HALF OR 



"NEXT, CONSIDER A DIN 
AND AGAIN MAKE YOMR 
TYPING THE MENU NUIB 

"1 STEAK, POTATOES, VE 

E COFFEE 

2 GROVND BEFF PATTY 
CORN, SOUP, SALAD, PUD r D 

3 BE IF STEW, SALAD, C 

4 SALAD- FRUIT, NUTS, 
Z 

•TO PRODUCE MORE THAN 
FOOD YOU MUST INVEST 
REMH1B1R THHAT 1 E.U 
'NT I RE ENERGY USE OF 



OR FISH, 
INCMILK 
OF FEE 
TEA"\ INPUT 

930 PRINT 
MINIMAL 

INF RGY . 

. IS THE 
SOME PEOPLEFOR A WHOLE YEAR. HOW 
MUCH 3NGRGYD0 YOU WANT TO SF WD 

IN EACH CATEGORY?" 

931 PRINT "FFRTILIZATION, CULTIV 
ATI ON, RESEARCH AND DEVELOP 
MGNT, /ND FOOD PROCES^'INGY" 

1010 PRINT "INTO FOOD PROCESSIN 
GC TO MAKE POTATO CHIPS, CORN F 

LAKES, FROZENFRI ED, CANNED FOODS, 
BREAF. ..)"\ INPUT Z 
1020 LET A(4)=Z 
1030 LET Z = A(1) 
1040 IF AC2J«AC l)Z«ft(^) 
1050 LET ZW0 
1060 RET/RN 

1065 PRINT "IN ANSWFRING THE NE 
XT QUESTIONS REMEMBER THAT A MAN 
CAN LIVE A WHOLE YEAR ON ONE E 
U." 



137e IF E<0 PRINT 
GY DGFIClf IMPOR/"; 
OIM."\J*E\0=0+E 
1371 PRINT "S02 IN 



•TO 
■'»' 



FILL ENE 
'UNITS OF 



o 



AIR IS";B(2) 



1380 IF E<0V=V+E/5000\E=0 
1390 PRINT "THE DOLLAR IS WORTH 
";V;\ POKE 240, 0\ PRINT "YEAR";Y 
\ POKE 240, 2 

1430 IF B(l>>99 PRINT \ PRINT \ 
PRINT "*** AIR IMPOSSIBLE*** 
*** YOU DIE! ***•• 



1480 IF B(2)>99 PRINT \ PRINT 
\ PRINT "AIR IMPOSSIBLE! YOU DI 
G"\ PRINT \ PRINT \ END 
U90 IF B(2)>80 PRINT \ PRINT 
"*THE AIR STINKS. I CAN HARD 

LY BREATH 1 "*^ PRINT \ PRINT 

1530 IF B(3)>99 PRINT \ PRINT 
\ PRINT "***ALL DEAD FROM P.A 
DlAflON***"\ PRINT \ END 
1540 IF B<3)>80 PRINT \ PRINT " 
RADIATION ST P.I 0' IS. SOME DEAD!"\R^- 
-R-B(3)/100\ PRINT \ PRINT \±_ r 

1625 PRINT "LAST TIME YOU USEF: 
"\ POKE 240, 0\ PRINT C(1);C(2);C 
(3),*\ POKE 240-2\ PRINT C(4>iC(5 

-1630 PRINT "HOW MUCH INERGY WJL 
L YOU TAKE FROM EACH SOURCE? (C 
OAL, OIL. . . . ) "\ INPUT C% 1 ) , C<2 »*£ 
<3),C(4),C(5) 



is worth"; v;\ poke 240, e\ pp. 



LAR 

INT 

1830 

1835 

1840 



CE ENilRGY 



18 50 PRINT 



ATI ON 
SOURCES 



YEAR:"tY\ POKE 240,2 
PRINT "CHOOSJ::"\ XNPUT Z 
IF Z>0 IF Z<9 GOTO 1870 
PRINT "-0 .ANOTHER YEAR 

1 RE-ENTIR APPLIAN 

2 RE-ENTER HEATING 

3 RE-ENTER CAR 

4 REGNTER FOOD" 
"5 AGRICULTURE 

6 EDUC/FORESTPOPUL 

7 DISPLAY SITUATIO 

8 CHOICE OF ENERGY 



AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAA AAAAAA 

AAAAAA AAAAAA 

AAAAAA AAAAAA 

AAAAAA AAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 



BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBB BBBBBB BBBBBB 
BBBBBB BBBBBB BBBBBB 
BBBBBB BBBBBB BBBBBB 
BBBBBB BBBBBB BBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBB BBBBBBBBBBBBBB 
BBBBBBBBBBBBB BBBBBBBBBBBBB 



cccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccc 
cccccccccccccccccccccccccccccc 
cccccc cccccc 

cccccc cccccc 

cccccc cccccc 

cccccc cccccc 

cccccc cccccc 

cccccc cccccc 

cccccc cccccc 

cccccc cccccc 



0100 REM POSTERS PROQRAM 

0110 REM CSS/SWTP BASIC FOR SPHERE SYSTEM 

0120 REM MODIFIED FROM '101 BASIC COMPUTER QAMES* 

0190 DIM H£C6),AC40:> 

0200 PRINT X, INPUT HEIQHT, WIDTH IN INCHES 1 ' 

0201 INPUT L,R 

0202 LET S=0:A=RCAS32:C=A 

0210 PRINT *H0W FAR, IN INCHES FROM THE LEFT HAND SIDE, PLACE THE 

LETTER « 

0220 INPUT S:S=12CAS>S 

0230 PRINT ''INPUT MESSAQE HERE 1 ' 

0240 INPUT B£ 

0241 LET J=LENCB£> 

0242 FOR X=1 TO J 

0243 LET ACX^=ASCCMID£CB£,X,135 

0244 NEXT X 

0250 PRINT ^'OUTPUT 1=CRT, 7*PR INTER •' 

0251 INPUT K 

0252 IF K=1 QOTO 260 

0253 if kcltxgt:>7 QOTO 250 

0260 FOR X=1T0b:READ H£CXXNEXT X 

0261 DATA * V V V V l V V 

0262 LET H£=H£CL} 

0270 LET F=F+1:IF ACF5-0 QOTO 990 

0271 LET Q£=**' 

0274 FOR X=1 TO L 

0275 LET Q£=Q£+CHR£CACF:0 

0276 NEXT X 

0280 let q£c15=chr£cacf55 

0290 for x=1t0 a/2:printcn05k:next x 

0300 if acf:>=46 qoto 345 

0301 if acf5=36 qoto 990 

0302 if acf5=32 qoto 6 30 

0303 if acfxlt548 qoto 270 

0305 if acfxqt557 qoto 310 

0306 ON ACF3-47 QOTO 500,440,620,625,635,550,615,605,595,585 

0310 IF ACFXLT565 QOTO 270 
0312 IF ACF5CQT>77 QOTO 330 

0320 ON ACF^-64QOTO350, 360, 370,380,390,400,410,430,440,450,460,4 
70,480 

0330 IF ACFXQT390 QOTO 270 

0331 ON ACF5-77QOTO490, 500,510,520,540,550, 560,570,580,590,600,6 
10,620 

0340 QOTO 270 

0345 FOR X=TT0A:PRINTCN0)K,TABCS:>;Q£;Q£:NEXT X:QOTO 270 

0350 QOSUB 640:QOSUB 690:QOSUB 640: QOTO 270 

0360 QOSUB 640:QOSUB650:A=CCAS:>.5:QOSUB 640: A=C: QOSUB 810: QOTO 

270 
0370 QOSUB 640: QOSUB 700: QOSUB 700: QOTO 270 
0380 QOSUB 640: QOSUB 700: A=CCAS!>.5:QOSUE 640: A=C:Q0SUB 840: QOTO 



9 



0390 
0400 
0410 

0420 
0430 
0440 
0450 
0460 
0470 
0480 
0481 
0485 
0486 
0487 
0490 

0500 
0510 
0520 

0530 
0540 

0550 
0560 
0570 
0580 
0585 
0590 

0591 
0595 
0600 
0605 
0610 
0615 
0620 
0625 

0630 
0635 
0640 

0645 
0650 
0670 

0671 
0680 
0690 

0700 



270 
QOSUB 640: QOSUB 650:G.OSUB 650: QOTO 270 
QOSUB 640: QOSUB 690: QOSUB 690:Q0T0 270 

QOSUB 640: A=CCAS>. 75: QOSUB 700: A=C CAS). 25: QOSUB 650:A=C:Q 
OSUB 760 

LET A=G CAS) ,25: QOSUB 710: A=C: QOTO 270 
QOSUB 640: QOSUB 710: QOSUB 640:QOTO 270 
QOSUB 640:QOTO 270 

QOSUB 750: QOSUB 740: QOSUB 640:Q0T0 270 
QOSUB 640: QOSUB 860:QOTO 270 
QOSUB 640: QOSUB 740: QOSUB 740:QOTO 270 
QOSUB 485: QOSUB 640: A=C: QOSUB 890: QOSUB 880 
QOSUB 485: QOSUB 640: A=C: QOTO 270 
IF CCQT55 THEN LET A=A-2 
IF CCLT55 THEN LET A=A-1 
RETURN 
QOSUB 640: QOSUB 890: QOSUB 640:QOTO 270 

QOSUB 640: QOSUB 700: QOSUB 640:Q0T0 270 
QOSUB 640: QOSUB 690: QOSUB 790:QOTO 270 

QOSUB 640:A=CCAS5.75:QOSUB 700: A=C CAS 5,25: QOSUB 650:A=C:Q 
OSUB 640 

LET A=C CAS 3.25: QOSUB 710:A=C:QOTO 270 

QOSUB 640: QOSUB 69O: A=CCAS}.5: QOSUB 640: QOSUB 810: A=C: QOTO 
270 

QOSUB 760:QOTO 270 

QOSUB 780:QOTO 270 

QOSUB 640:QOTO 270 

QOTO 270 
QOS0B 640: QOTO 270 

A=C: QOSUB 880: QOSUB 890 

A=C:QOTO 270 

QOSUB 640: QOTO 270 



QOSUB 650 

QOSUB 640 

QOSUB 740 

QOSUB 880 

QOSUB 690 

QOSUB 640 

QOSUB 640 

QOSUB 650 

QOTO 270 

QOSUB 780: QOSUB 640: QOTO 270. 

QOSUB 800: QOSUB 960:QOTO 270 

QOSUB 650: QOSUB 760:QOTO 270 

QOTO 270 

QOSUB 650:A=CCAS).5:QOSUB 640: A=C: Q5SUB 810: QOTO 



QOSUB 770 
QOSUB 780 
QOSUB 640 
QOSUB 890 
QOSUB 790 
QOSUB 485 
QOSUB 485 
QOSUB 640 
QOSUB 900 
QOSUB 780 
QOSUB 970 
QOSUB 640 
QOSUB 920 
QOSUB 700 

270 
QOSUB 940: QOTO 270 

QOSUB 790: QOSUB 710: QOSUB 640: QOTO 270 

FOR Y=TTOA:PRINTCNO)K,TABCSX:FOR X=1T010:PRINTCNO)K,Q£;: 
NEXT X 

PRINT CN0)K:NEXT Y: RETURN 
IF ACLT51 THEN LET A=1 

FOR X=1TOA: PR I NTCNO)K,TABCS); Q£j Q£;H£jH£; Q£;Q£„'H£; H£,'Q£/Q£ 
:NEXT X 
RETURN 

PRINT CN03K,TABCS:>; 

FOR X=1T0A: PR 1 NTCNO)K,TABC4CAS3L+S>; Q£J Q£; H£; H£j Q£' Q£: NEX 
T X: RETURN 
FOR X=1TOA: PRI NTCN03K,TABCS)j Q£' Q£; : PRIMTCNO)K,TABC8CASD 



1 



0702 NEXT X ' 

0704 RETURN 

0710 IF ACLD1 THEN LET A=1 

0730 FOR X=1 TO A:PRINTCN05K,TABC4CAS>L+S5;Q£;QC:NEXT X:RETURN 

0740 FOR X=1TOA:PRINTCNO)K,TABCS);Q£;Q£:NEXT X : RETURN 

0750 FOR X=1TOA:PRINTCNO}K,TABCS:>;Q£;Q£;Q£;Q£:NEXT X: RETURN 

0760 FOR Y=1TOA: PR I NTCNO>K,TABCS> : Q£;Q£' Q£; Q£; Q£f Q£; H£i H£,'Q£; Q£ 
:NEXT Y 

0761 RETURN 

0770 FOR XslTOAcPRlNTCNOK.TABCSy'Q^'Qfi; H£; H£; Q£jQ£;Q£; Q£;Q£jQ£ 
:NEXT X J / 

0771 RETURN 

0780 FOR X=1T0A:PRINTCN0}K,TABC8CAS}L+S};G.£;Q£:NEXT XsRETURN 
0790 FOR X=1T0A:PRINTCN0>K,TABC4CAS)L+S:>;Q£;Q£! Q£; Q£; Q£ ! Q£: NEX 

T X: RETURN 
0800 FOR X=1T0A:PR1NTCN0)K,TABCS:>;Q£;Q£;Q£;Q£;Q£;Q£:NEXT X:RETU 

RN ' 

0810 FOR X=1TOC/2:PRINTCN05K,TABCSD':FOR Y=1T02:FOR Z=TT0C5 
CASDLD - X 

0811 PRINT CNODK,Q£C1^;:NEXT 2 

0820 IF XCQT53 GOTO 950 

0821 LET V=X 

0830 PRINT CN05K,H£CVCAS525 

0831 NEXT Y 

0832 IF LCLT53 THEN PRINTCN05K 
0834 NEXT X: RETURN 

0840 FOR X=1TOC/2:PRIMTCN05K,TABCSDjH£CX5j:FOR Y=1T010CAS5L-C2 
CAS3X} 

0841 PRINT CN03K,Q£C15;:NEXT Y:PRINTCNO}K 
0850 NEXT X: RETURN J 

0860 FOR X=4CAS5L TO 7CAS5L STEP 14CAS5L/CCCAS565 

0861 PRINT CN05K f TABCX+S5;Q£iQ£;Q£; 

0870 PRINT CN05K,TABC7CAS)L-X+s5;Q£;Q£'Q£:NEXT X:RETURN 

0880 FOR X=OT06CASU STEP 6CAS^L/C:PRIMTCN0DK,TABCX+S>;Q£;Q£; 
Q£)Q£:NEXT X 

0881 RETURN 

0890 FOR X=6CAS)L TO STEP -6CAS2L/C 

0891 PRINT CN03K,TABCX+S5;Q£^£>Q£,'Q£ 

0892 NEXT X ■ s ' f 

0893 RETURN 

0900 FOR X=0T07CAS5L STEPC14CAS>L}/CCCAS:>63:PRINTCN03K,TABCX 

+S5;Q£;Q£ / 'Q£ 
0910 PRINT CNO}K,TABC7CAS}L-X+S;);Q£;Q£*Q£:NEXT X : RETURN 

0920 FOR X=0 TO 7CASDL STEPC7CAS5LD/CCCAS335 

0921 PRINT cno3K,tabcsd;q£;q£; 

0922 print cno>k,tabcx+s5;q£;q£;q£; 

0930 PRINT CNO>K,TABC8CAs5l+S3;Q£'Q£:NEXT X: RETURN 

0940 FOR X=1 TO ACAS}3:PRINTCNO)K:NEXT X; RETURN 

0950 FOR U=1TOX-3:PRINTCNO>K, ' • :NEXT W:V=3:QOTO 830 

0960 FOR X=4CAS3L TO 7CAS5L STEP LCAS>4/C 

0961 PRINT CN0>K,TABCX+S5JJQ£;Q£;Q£:NEXT X:RETURN 

0970 FOR X=7CAS!>L TO 4CAS5L STEP -LCAS54/C 

0971 PRINT CN05K,TABCX+S5;Q£;Q£;Q£:NEXT X: RETURN 
0990 END ' 



\o 



PATCH FOR PBOGBAMMA SPHEBEFOBTH 

As I reported previously, I have encountered certain 
annoying bugs in SphereFORTH. From reading the FORTH Interest Group 
Newsletter, it seem* other* are even lee* happy with thia 6800 
Implementation, I find I have misleamed a few thing* that a 
"standard" FORTH would not have confused me with, like array handling. 
Nonetheless, I am *tlll greatly enthuelaatlc concerning the FORTH 
approach to i programming, and have found that fixing *yatem bug* 
1* not particularly hard, *lnc* these are Just error* in defined word* 
which are in the dictionary like any other*. 

I provide here the patches for the algned comparison*. / < > ?J 
Adding replacement word* to the dictionary would work for new (ueer) 
word*, but would not retrofit the fix into earlier (*y*tem) word* 
that rely on comparison, such as MIN and MAX. The crux of the 
problem was that the low-order byte of each value was being treated 
as If it were a signed value (like the mere-slgnlf leant byte, which 
properly 1* treated as signed). So, the unsigned comparisons BHI, 
BEQ, and BLS had to be substituted for the BGE and BLE used by Prograrama, 
Unfortunately, there is no BHS (Branch High or Same?), so that the 
usual patcher** nightmare of "Just one extra instruction" was encoun- 
tered, and a Jump to the "common" code of the less-than routine was 
required. 




T. B. Meier 

80 Alcott Street 

Acton, MA 01720 



II 



Entire routine* are ahown, but ©nly 12 bytet are patched. 



Addr«»s 


online 


1 


l62Di 


DE5^ 


LDX »tkptr 




A601 


LDAA l.X 




E600 


LDAB O.X 




6F0O 


CLR 0,X 




6P01 


CLR 1,X 




E002 


SUBB 2.X 




2E06 


BGT .46 




2D06 


BLT .+6 




A003 


SUBA 3tX 


t63Pi 


2F02 


BLE .+2 




6C01 


INC 1,X 


16^3 « 


BDH5P 


JSR 115F 




BD100F 


JSR 100F 




39 


RTS 


♦ • • 


• • t 




I65O1 


DE54 


LDX ntkptr 




A601 


LDAA l.X 




e6oo 


LDAB O.X 




6F00 


CLR O.X 




6F01 


CLR 1,X 




E002 


SUBB 2,X 


l65Ci 


2D06 


BLT .+6 




2E06 


BGT .+6 




A003 


SUBA 3#X 


1662$ 


2C02 


BGE .4-2 




6C01 

wmrm mm 


INC l.X 




BD115F 


JSR H5f 




BD100F 


JSR IOOF 




39 


RTS 166B 



New 



2302 



BLS .4-2 



2D08 BLT .+8 

2E08 BGT .+8 

2204 BHI .♦** 

2702 BEQ .+2 

6C01 INC l.X 

7E1643 JMP I6U3 

xxxt epare 



\l> 



COSMAC UT-4 Monitor Interface 

This program lets the COSMAC UT-4 monitor think it is talking to a standard 
300 band terminal instead of a Sphere System. All of the UT-4 commands are 
supported plus three additional functions. 

"I" will initialize the C.R.T. to a blank screen with the cursor 
in the upper left corner. It does not affect UT-4. 

"ESC" leaves UT-4 and returns control to the Sphere DEBUG mode. 



lliTill 



requests a block of memory to be transfered between the COSMAC and 
Sphere System. The transfer program will ask for three numbers in 
the following format: 

"S=" start address in Sphere System, 

"//=" number of bytes to be transfered, and 

"C=" start address in COSMAC system. 

After the three numbers have been entered, the program expects one of three 

commands . 

"L" will load the block of memory into the COSMAC from the 
Sphere System. Program control is returned to UT-4. 

"S" will store the block of memory into the Sphere System 
from the COSMAC. Program control is returned to DEBUG. 

"C" will return program control directly to UT-4 without 
trans fering anything. 

Any character except "L", "S", or "C" will initiate a new transfer sequence. 

Gardner Road 

West Kingston, H.I. 

02892 
March 29, 1979 

I have designed a microprocessor control system using the 
RCA 1802 COS MAC. The 1802 was chosen because my application is 
oceanographic data logging and low power is a must. 

The hardware is assembled on three different printed circuit 
boards. Tney are small enough to fit in a six inch I.D. cylindrical 
case. The CPU board has latches for the 8 high order address bits. 
It also has a power switched 2716 2K EPROM. There is a 4K CMOS RAM 
card which can be "piggybacked" to 8K. The third board has an 
1&54 UART and some miscellaneous i/o circuitry. 

Since I did not have an RCA developement system, I wrote the 
enclosed program to interface my Sphere System with RCA's UT-4 monitor. 

Someone may find t^is useful in connecting a RCA Elf to a 6800. 

Donald Dors on 







COSMAC UT-i Monitor Interface 



Cassette fift CN, 600-7A5, CK=1C. 9 January 1979 
2716 PROM 29. January 1979. Serial interface at F028. 



START 



NEXT 



3LINK 



Cl. : '_ 



""22 Home cursor. 
~ZZZ Clear display. 



I ,, B I Initialize ACIA: 7 bits, even parity 4 stop bit. 
* — f RTS low. t 64 clock, 19.2 KHz - 300 baud. 



,S.- S2 



2; 

722SJ 

i: -| 



Z 12F2 ,» Cursor control 

s. i 

7 7S J 

Z .-221 ^ Test keyboard 

A 1C j 



-,S "I" for initialize 

Zk START 

!■; 1 "ESC" to return 

23 T to DEBUG 
FI^Fj 

^ "T" for transfer 

-i= _ TRANSFER 

F2>2£^ 

- TDRE? 



V' 



FZ2& 

F22S 



:5 5^ 



Transmit character 
RDRF? 



F22S Read character 

;i BLINK Ignore_ Nulls. 

3A Test for L.F. 
25 

•* Initialize 

character counter 



■Jii 

C7 BLINK 



i\J u1* 



IF DISPLAY 



Test for 25th character. 



;e ic 



Make sure cursor is 



111 



52 f clear before C.R. 

■22 J 



Add 13 (decimal) 
to cursor pointer. 



Teletype replacement 
with line folding to 
accomodate 32 character 
per line C.R.T. 



D. L Dorson 

Narrafi-mctt Bay Campus URI 

Souih I'crry Road 

Rarrac3;isctt, R. I. 02S32 

U.S.A. 



1F2 



CI 

CI 

DISPLAY CI 

NEXT 1 Z 1 



re -> 
r A 22 



•r 21 



2D 
ID 
ID 
1C 
1C 

T -2 _ 

AD BLINK ] 

FD1S C.R. L.F. j If cursor goes off 

^1^5 f Che screem, reset to 

1C 1 bottoa line. 

A3 BLINK J 

FCAD Display character. 

57 NEXT (also used as island for return from "transfer". 



<¥ 



COS MAC UT-A Monitpr Interface 
Memory Block. Transfer Program 



Temporary memory usage 

Start address 3C, 3D 
# of bytes 3E, 3F 
COSMAC address 3A, 3B 



TRANS ER 



Z21K 
C225 
C22S 
C22A 
C22C 
C20F 
C211 
C213 
C215 
C217 
C21A 
C21C 
C21E 
C220 
C222 
C 225 
C227 
C22A 
C22C 
C22F 
C232 

w Ct *^ %• 

C23S 
C23S 
C23A 
C23C 

C23E 
C24Z 
C2ii2 



5D 
85 
SD 
D7 
57 

3 u 

£5 

SB 
D7 
S7 
3D 
£5 
£D 
D7 
S7 
3D 
22 
3D 
85 
3D 
3D 
35 
3D 
81 
27 
81 
27 
81 
27 
22 



FD1S 
53 "S" 
IF A 
3C 
3D 

FD15 
23 "#" 
U A 
33 
3F 

FD15 
4 3 "C" 

as a 

3A 

33 

FD15 

2C B 

FCAD 

3D 

FCAD 

FIFA INPNUM 



C.R.L.F. 



"S = " Start address in Sphere System. 



if = ." Number of bytes to be transfered. 



"C = " Start address in COSMAC system. 

D. L. Dorson 



FE5C 

4 3 "C" for return to COSMAC UT-4 
C5 NEXT 1 

kC "L" for load COSMAC from Sphere 

05 LOAD 

53 "S" for store in Sphere from COSMAC 

7C STORE 
'3D TRANSFER 



Narragansetl B.iy Campus URI 
South Fcrrv Road 
Narragansett, R. I. 02882 
U.S.A. 

I Transfer command 
sequence. 



is 



COSMAC UT-4 Monitor Interface 



This program loads a block of memory from the Sphere System into the 
COSMAC. ?rog»ara control returns to UT-4. 



LOAD 



35 21 "!" i 

£2 -; IT-4C • "~-4 load command. 

— * i- tJ 'i 

S3 13 HEXASC • 

7 3" "^ 



Load data 



Zll. 



End if! 



i 



HEXASC -251 
3252 
3252 
32S-, 
:2s; 
3255 
32 5 S 
32 5 S 
3253 
3253 
3251 
3272 
3272 
327^ 
C277 
C27S 
327A 
32 7 C 
327? 

32a i 

Tx 32 -.2 

C2S5 
32i 5 
C2H7 
32SS 
3 2£C 
UT-4C.3 2SD 
32 S7 
3251 
C2S", 
C2SS 
C2SS 
C2SA 
C2SD 
C2S7 
C2A2 

C2AA 
C2A5 

C2AS 
C2A3 
32AD 
C2AF 
3251 
C233' 
** :25- 
3237 
C23S 
C23A 
3233 



2> 

25 7 2C 

£5 23 

S3 25 Tx 

33 7315 } 

22 5 3 NEXT 1 Return to UT-4 

35 



C.R." } 



} Close UT-4 load with C.R. 



-X 

S3 35 
32 

Ss 27 
3D 21 
3S 

si as 

22 2S 

S3 22 

37 I21D 

S3 3S 

3> 

S3 37 

37 1213 

S3 CI 

3S 

75 722S 

^—. 

2-. 7S 

37 722S 

3S 

ED 73 Tx 

SD 22 Rx 

3D 73AD 

SS 4D "m" 

8D IA Tx 

SD IA Rx 

3D FCAD 

SS 3A 

3D 7ECC • 

SS 3 A 

gD 55 HEXASC 

SS 23 

ED 77.CC 

SS 33 



- HEX to ASC II 
Convert byte to two ASC II 

characters and send them 



via ACTA to COSMAC. 



D. L Dorson 

Nnrragansett Bay Campus URI 

South Ferry Road 

Narrngansett, R. I. 02832 

U.S.A. 



Tr<»i— i ' c^«''*'-Te 



HEXASC 



S5 22 

S3 C7 Tx 

7S 722S 



35 722S 
2> 



- UT-4 command protocol. 

x M Adr. A 

x - ! for load, 
x = ? for query. 
Location 3A & 3B 
contain start address. 



Receive character 



I<? 



COSMAC UT-4 Monitor Interface 



This program stores a block of memory into the Shpere Svst.».if rrom the 
COSMAC. Program control returns Co DEBUG. 



STORE 



LINE 



DATA 



3232 

3232 

Z2c" 

C2CS 

323S 

32CA 

3233 

3231 23 
•3231 s: II 

32 C 3 £1 2A 
- 321:5 25 



83 52 
55 3F 

S3 S7 
S5 23 



If r>!1 

UT-4C 
HEXASC 



CJ 2 



HEXASC 
"C.R." 
TX 
FD1SC.R.L.F. 
Rx 



"237 
3235 
3233 
323E 
3232 



as 

57 



£3 
33 
7A 
25 



FA 

23 

32 

F32F 

25 

FCAD 

CF 

FCAD 

3232 

F5 

13 

12 

31 

3C 

IF 



1 



J 



UT-4 query command. 



/' of bytes. 



Close command with C.R. 



Wait for line feed 



r 



Display address information. 



AS 

48 

-.Z 

we 

35 

13 



3-2 15 
3238 
3 2I3 
32ID 3F 
323F SS 
C2F1 S7 
:2F2 33 
32F5 S3 
C2F7 
32FS 
C2F5 
C2FA. 
C2F3 
32FC 
C2FE 
C2FF 
3 322 rl 
3322 33 

"■»?■» 7 7 



C327 2 5 
^t>.o ^ F 3 E 
>-3*2A 25 22 
1 C22C 71 F3iiF 
L.C32F 7A Z2D1 
C312 2S 
C31-. 22 -.. 
. CHARACTER 33 1 S £ 3 3 C 
C31£ £1 45 
331 A 22 FA 
,C31C £1 -2 
3311 22 
C322 £1 
3322 22 
C32-. si 
3325 23 
332S £2 
C32A 25 
3322 £2 
C323 25 



^i, Initialize data byte/line counter. "\ 



r 



CHARACTER 



1 



v. Pack 2 hex 
j characters to 
make one byte. 



1 £ CHARACTER 



1 



Store 
of ^a 
(16 



one line 
ta. 
vtes). 



^ 



Store byte. 



Test for end tl . 



3F 



23 
3 > 
F2 
27 

32 

37 



Return to DEBUG 

~.t.. J" Test for last data byte in line. 

DATA J 

LINE 
Rx —\ 



J 



X 



Read characters from COSMAC 
and return with the first 
hex digit. The ASCII is 
converted to hex before return. 



D. L. Dorson 

Narrap.ansctt 

South Ferry R 

Narragansett, 

U.S.A. 



Bay Campus URI 
oad 
R. I. 



°S5'> 



11 



Bill J. Rutherford 
3201 N. Rd. 450 W. 
Kokomo, IK 46901 



♦ADD A TELETYPE TO TINY BAS let 



YOU CAN INTERFACE A TELETYPE TO TINY BASIC USING THE ROUTINES ON THE 
FOLLOWING PAGES. ALSO, IF YOUR TELETYPE HAS A PAPER TAPE READER AND 
PUNCH, YOU CAN LOAD AND SAVE PROGRAMS THIS WAY. THE TTY SHOULD BE IN- 
TERFACED TO THE ACIA AT F050. 

THERE ARE TWO FLAGS AT $OOFE AND $OOFF TO INDICATE WHICH PORTS ARE 
BEING USED FOR INPUT AND OUTPUT, RESPECTIVELY. A $00 IN THE INPUT 
FLAG TELLS THE ROUTINE TO GET ITS INPUT FROM THE SPHERE KEYBOARD, AND 
AN $FF TELLS IT TO ACCEPT INPUT FROM THE TTY KEYBOARD. LIKEWISE, A 
$00 IN. THE OUTPUT FLAG TELLS THE ROUTINE TO DISPLAY ITS OUTPUT ON THE 
CRT, AND AN $FF DIRECTS THE OUTPUT TO THE TTY PRINTER. THUS, ONLY ONE 
TERMINAL CAN BE USED FOR INPUT OR OUTPUT AT A TIME. A CTRL/I CHANGES 
THE INPUT PORT USED, AND A CTRL/0 CHANGES THE OUTPUT PORT. 

THERE ARE TWO WAYS TO CHANGE THE 1/0 FLAGS FROM A BASIC PROGRAM. 
ONE, OF COURSE, IS TO CHANGE THEM WITH THE USR FUNCTION AND THE POKE 
SUBROUTINE. THE OTHER WAY IS TO USE THE USR FUNCTION TO CALL THE OUT- 
PUT SUBROUTINE AT $0209, PASSING THE ASCII CODE FOR A CTRL/I OR A CTRL/0 
TO THE SUBROUTINE IN THE THIRD ■ ARGUMENT . THE STATEMENT 

70 I=USR<521,0,9) 
WILL CALL THE SUBROUTINE AT $0209, WHICH JUMPS TO MY ROUTINE AT $01 ID, 
WHEnE THE CTRL/I PASSED IN THE THIRD ARGUMENT WILL BE PROCESSED <THE 
SECOND ARGUMENT IS MERELY A DUMMY). IN LIKE MANNER, THE STATEMENT 

90 I=USR<521,0,15) 
WILL "PRINT"' A CTRL/0. 



IS 

AFTER THE OCCURRENCE OF EITHER A CTRL/I OR CTRL/O IN THE INPUT 
STREAM, THE INPUT CHARACTER , IN ACCUMULATOR A IS CHANGED TO A RUBOUT 
(HEX $7F) WHICH IS IGNORED IN THE CHARACTER INPUT ROUTINE OF THE BASIC 
INTERPRETER. OTHERWISE, THE CONTROL CHARACTER WILL BE PLACED IN THE 
INPUT BUFFER, AND ANYTHING TYPED IN AFTER THAT WILL RESULT IN AN ERROR 
MESSAGE. 

THE BREAK TEST ROUTINE CHECKS ONLY THE ACTIVE INPUT PORT FOR A 
BREAK. NULLS ARE NOT ACCEPTED AS BREAK CHARACTERS; EVERYTHING ELSE IS. 

THE BACKSPACE CHARACTER HAS BEEN CHANGED TO THE ASCII UNDERLINE 
(SHIFT /O ON THE TELETYPE OR DELETE ON THE SPHERE KEYBOARD). THIS IS SO 
THE BACKSPACE CHARACTER WILL BE VISIBLE ON THE PRINTER. THE CURSOR POS- 
ITION IS STILL BACKED UP ON THE CRT, BUT NOW EACH ERRONEOUS CHARACTER 
IS CLEARED TO A SPACE. 

TWO OTHER MODIFICATIONS HAVE" BEEN: MADE TO FACILITATE PAPER TAPE 
LOADING AND DUMPING. ONE IS THAT LOCATION $0211, DEFINING THE NUMBER 
OF PAD CHARACTERS, HAS BEEN CHANGED TO A 2. THIS MEANS THAT AFTER A 
CARRIAGE RETURN, TWO NULLS WILL BE OUTPUT BEFORE TINY ECHOES WITH A 
LINEFEED AND ANOTHER NULL. ON PAPER TAPE, THE TWO PAD CHARACTERS IN- 
SURE THAT TINY WILL HAVE SUFFICIENT .TIME TO PROCESS EACH LINE BEFORE 
THE TAPE ADVANCES TO THE NEXT LINE. 

(INCIDENTALLY, ALTERING THE CONTENTS OF LOCATION $0211 IS THE EQUIV- 
ALENT OF THE NULL FUNCTION IN. SOME HIGHER LEVEL BASICS.) 

ALSO, THE TAPE MODE HAS BEEN ENABLED BY CHANGING LOCATION $0212 TO 
AN $80. THIS WILL SUPPRESS ALL OUTPUT, PARTICULARLY LINE PROMPTS, WHILE 
A PAPER TAPE IS LOADING. THIS MODIFICATION IS ALSO MEANT TO GIVE TINY 
TIME TO PROCESS LINES. IF THE TAPE MODE IS DISABLED (LOCATION $0212 
CONTAINS A $00), A PROMPT WILL BE PRINTED BEFORE EACH LINE, WHICH MAY 
CAUSE BASIC TO MISS THE FIRST FEW CHARACTERS OF THE NEXT LINE. 



n 



TIY I/O DRIVER ROUTINES FOR TINY BASIC 



OOFE 00 




INFLG 


FCB 





OOFF 00 




OUTFLG FCB 





020F 5F 




BACKSP 


FCB 


$5F 


0211 02 




PDCHRS 


FCB 


2 


0212 80 




TAPFLG 


FCB 


$80 


001C 




CSRPTR 


EQU 


$1C 


0032 




EDIT 


EQU 


$32 


OOBF 




TAPMOD EQU 


$BF 


0300 




CLDADR 


EQU 


$300 


0325 




WRMADR 


EQU 


$325 


F040 




KBDPIA 


EQU 


$F040 


F050 




AC1A 


EQU 


$F050 


FC4A 




GETCHR 


EQU 


$FC4A 


FCBC 




PUTC11R 
•it 


EQU 


$FCBC 






* I/O ROUTINES 


0100 8D 40 


IN 


BSR 


INCH 


0102 Bl 


020F 




CMPA 


BACKSP 


0105 26 


OE 




BNE 


0UT1 


0107 D6 


FF 




LDAB 


OUTFLG 


0109 2B 


4A 




BMI 


OUTTTY 


010B DE 


1C 




LDX 


CSRPTR 


010D 09 






DEX 




010E DF 


1C 




STX 


CSRPTR 


0110 C6 


20 




LDAB 


=$20 


0112 E7 


00 




STAB 


0,X 


0114 39 




EXIT1 


RTS 




0115 81 


OD 


0UT1 


CMPA 


s$0D 


0117 26 


04 




BNE 


OUT 


0119 D6 


BF 




LDAB 


TAPMOD 


011B 2A 


F7 




BPL 


EXIT1 


011D 81 


09 


OUT 


CMPA 


=9 


011F 26 


05 




BNE 


0UT2 


0121 73 


OOFE 




COM 


INFLG 


0124 20 


07 




BRA 


CLRQIR 


0126 81 


OF 


0UT2 


CMPA 


=$0F 


0128 26 


06 




BNE 


0UT3 


01 2A 73 


OOFB 




COM 


OUTFLG 


012D 86 


7F 


CLRCHR 


LDAA 


=$7P 


01 2F 39 




EXIT2 


RTS 




0130 D6 


FF 


0UT3 


LDAB 


OUTFLG 


0132 2B 


21 




BMI 


OUTTTY 


0134 81 


OA 




CMPA 


=$0A 


0136 2F 


F7 




BLE 


EXIT2 



SELECTS KBDPIA, $FF SELECTS ACIA. 
SELECTS CRT, $FF SELECTS TTY. 



TAPE MODE IS ON WHEN SIGN BIT SET. 



INPUT A CHARACTER INTO ACC. A 



OUTPUT TO CRT? 

NO, PRINT BACKSPACE CHAR. ON TTY 

BACK UP CURSOR ON THE SCREEN 



BLANK OUT ERRONEOUS CHARACTER 



DON'T PRINT CR IF TAPE MODE OFF 



CHANGE THE INPUT PORT 



CHANGE THE OUTPUT MEDIUM 

KEEP CTRL CHAR OUT OF INPUT BUFFER 

OUTPUT TO CRT? 

NO, PRINT CHAR. ON TTY 

DON'T P n vINT CURSOR & CTRL CHARS ON 

THE CRT. 



ze> 



0138 81 7F 




CMPA 


=$7F 


DON'T PRINT RUBOUT ON THE CRT. 


01 3A 27 F3 




BEQ 


EXIT2 




013C 7F 0032 




CLR 


EDIT 




013F 7E FCBC 




JMP 


PUTCHR 




0142 D6 FE 


IHCH 


LDAB 


INFLG 


IS ACL\ THE INPUT PORT? 


0144 2B 03 




BMI 


INTTY 


YES, BRANCH AROUND 


0146 7E FC4A 




JMP 


GETCHR 


INPUT A CHARACTER FROM PIA 


0149 BG F050 


INTTY 


LDAA 


ACIA 




014C 44 




LSRA 






014D 24 FA 




BCC 


INTTY 




014F B6 F051 




LDAA 


ACIA+1 




0152 84 7F 




ANDA 


=$7F 




0154 39 




RTS 






0155 36 


OUTTTY 


PSHA 






0156 B6 F050 


WAIT 


LDAA 


ACIA 




0159 84 02 




ANDA 


=2 




01 5B 27 F9 




BEQ 


WAIT 




015D 32 




PULA 






015E B7 F051 




STAA 


ACIA+1 




0161 39 


* 


RTS 








* BREAK TEST 
it 






0162 96 FE 


BRKT3T 


LDAA 


INFLG 


IS PIA THE INPUT PORT? 


0164 2B 0E 




BMI 


TTYT3T 


NO, GO TO ACIA BREAK TEST 


0166 B6 F041 




LDAA 


KBDPIA+1 


0169 48 




ASIA 






01 6A 48 




ASIA 






01 6fi 24 06 




BCG 


EXIT3 


NO BREAK 


01 6D B6 F040 




LDAA 


KBDPIA 


NULL? 


0170 26 01 




BNE 


EXIT3 


IF NOT, BREAK HAS OCCURRED 


0172 OC 




CLC 




NO BREAK 


0173 39 


EXIT3 


RTS 






0174 B6 F050 


TTYT3T 


LDAA 


ACIA 




0177 44 




LSRA 






0178 24 F9 




BCC 


EXIT3 


NO BREAK 


01 7A B6 F051 




LDAA 


ACIA+1 


NULL? 


017D 26 F4 




BNE 


EXIT3 


IF NOT, BREAK HAS OCCURRED 


017F OC 




CLC 




NO BREAK 


0180 39 


■ic 


RTS 








* INITIALIZATION 




0181 8D 08 


COLDST BSR 


ACIAIN 


* 


0183 7E 0300 




JMP 


CLDADR 


* TNTI 


0186 8D 03 


WARM3T 


BSR 


ACIAIN 


* 


0188 7E 0325 




JMP 


WRMADR 


0200 BD 0181 
0203 7E 0186 


018B 86 03 
018D B7 F050 


ACIAIN 


LDAA 
STAA 


=3 

ACIA 


0190 86 12 
0192 B7 F050 
0195 39 


* 


LDAA 
STAA 
RTS 


=$12 
ACIA 


0206 7E 0100 

0209 7E 011D 

020C 7E 0162 

* * 



INTERPRETER CHANGES 



* 
* 



JSR 
JMP 
JMP 
JMP 
JMP 



END 



COLDST 

WARMST 

IN 

OUT 

BRKTST 



t pittmoiVS 
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DIGITAL TAPE SYSTEM 

REQUIREMENTS: 

1 . Low cost 

2. High reliability 

3. Fast (4800 BAUD or more) 

4. Easy interface to Sphere 

5. Software compa table to Sphere (Any changes transparent 

to standard Sphere cassette and my CC8A manual digital Cas.) 

THE MICRO COMMUNICATIONS CORP. MODEL 25-3000 TAPE SYSTEM: 

The Microcom is a very small tape transport with attached PC board 
electronics. The PC board provides full TTL compatable circuitry 
for control and reading and writing on endless loop Wafer-cartridges. 
The wafers use cr02 on a mylar base and are available in 5 to 50 
feet lengths. The system sells for $110. and delivery (in April) 
was instant. The transport without electronics sells for $40. , and 
the special motor regulator IC is also available. Very good documen- 
tation includes complete schematics, timing charts and flowcharts. 

The wafers are 100% certified and cost about $24. -per case of 10 
dependent on length. Write protect conductive 'stick-ons' are provided. 

The Microcom with some extra circuitry meets all 'requirements 1 NICELY. 
THE ADDED CIRCUITRY: 

1. PerfPits automatic fast search (10 "/S) while reading at 3"/S. 

2. Hardware write protect 

3. Overwrite error stop (requiring manual reset) when writing 
and end of tape occurs. Since the tape wafer is an endless 
loop, this protects from overwriting accidentaly with a 
•too short' tape. 

4. Begining of tape positioner switch for fast parking. 

5. Power supply circuitry that eleminates the possibility 

of writing a flux change during power loss or system shutdown. 

(Note; a 6.8K resistor is paralled with R22 of the microm 
PC board ^or 10"/S fast speed) 

The system performs errorless at 4800 B and with a 25 feet tape 

you can be reading any block in the 30 kbyte capacity in 30 seconds 

or less. 

NOTE: 9600 B operation in,my system yields an error value of approx- 
imately 1 bit in 10° while at 4800 B no errors occure; therefore 
satisfactory operation should extent to 7000 or 8000 B. 

This is faster operation than some 9600 Baud systems due to the 
3.3:1 search/read ratio and approximately 30 mS fast to slow 
transition time. This permits speeding through nearly all of the 
interrecord gap before slowing down to test the block name. 

I have been using the system for about 2 months in breadboard form 
and have found it to be an excellent performer. 

The system will operate without fast search with no software changes, 
however with about 66 bytes additional eprom the fast search provisions 
can be used and is well worth the effort. 
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S1M board Mods. (See Re articles) 

The SIM board should be crystal controlled for maximum reliability. 

Other very minor changes and fixes are required. 

The oscillator of Vol 1 ISSUE 3 may be used with appropriate circuit 

values* 

TCTAL 153.6 kHZ (to 9600 Baud) 

Rl,R3 100k 

R2 47k 

R4,R5 47k 

Cl,C2 not used 

(Output is collector of Q.3) 
Complete schematics for the CASl version are available on request. 
An unused CAS2 could probably be modified without much trouble. 

SOFTWARE: 

Compatable software driver changes and additions are enclosed 
showing the added code starting at FA00, however RDHDRY and RDHDR 
may be changed to suite your eprom space. 

1 think the Microcom is a very good system and well worth the minimum 
cost and effort required. Although Micro Comm. Corp. is essentially 
an OEM supplier, I had no trouble purchasing 4 units (through 
Airep Electronics Inc., Dallas, TX) 

The information presented here is very sparse; 

feel free to write for any additional information you may require. 

REF. INFORMATION: 



Interfacing CC-8a 
Crystal control SIM 
Oscillator Divider 
Add 1702A to SIM 
2708 eprom board 
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I CEO COM CASSETTE DRIVER 




000 1 








* 








0002 








* 








0003 








* IR GAP LO CATER 




0004 








* 








0005 


0200 








ORG 


SFBB5 




oooe 








* 








0007 








*RDHDRY 


IS THE LOCATIOM OF 


008 








♦ADDED 


EPROM 






0C09 








*TIME IS HEX 


M UMBER OF 


LOOPS 


0010 








* AT APPROX 50 MICROSEC/LOOP 


0011 








* 








0012 


FBB5 






TIME 


ECU 


i3000 


(LOOPS* 50US) 


0013 


FEB 5 






EDH DRY 


ECU 


SFAOG 


ADD EPROM LOC 


00 14 


FBB5 






P.DHDR 


ECU 


SFA03 


EPROM +3 


0015 








* 








016 


FBB5 






ACIAaIO 


ECU 


S38 




0017 


FBB5 






COUMT 


EGU 


$18 




IS 


FBE5 






OUTREG 


EQU 


SFG42 


PI A OUTPUT R 


0019 


FBB5 






COM REG 


ECU 


SF043 


PI A COMTROL R 


0020 








* 








0021 








* 








0022 


FEB5 


7E 


FAOO 


RDKDEX 


JMF 


RDM DRY 




0023 








* 








0024 


FBE8 


86 


01 


I RGAF 


LDAA 


= 01 


FAST 


0025 


FBEA 


B7 


F042 




STAA 


OUTREG 




0026 


FBBD 


CE 


3000 


I RGAP 1 


LDX 


= TIME 




0027 


FECO 


DF 


18 




STX 


COUMT 




028 


FBC2 


DE 


38 




LDX 


AC I AM 




029 


FBC4 


6D 


01 




TST 


1*X 


CLR FULL BIT 


00 30 


FBC6 


DE 


18 


IMPUT 


LDX 


COUMT 




0031 


FEC8 


27 


OD 




EEC 


GAP 




0032 


FBCA 


09 






DEX 






0033 


FBCB 


DF 


18 




STX 


COUMT 




0034 


FBCD 


DE 


38 




LDX 


ACIAMO 




0035 


FECF 


86 


01 




LDAA 


= S>01 


TST FOR CHR 


0036 


FED1 


A5 


00 




BI TA 


0*X. 




0037 


FBD3 


27 


Fl 


MO GAP 


EEC 


IMPUT 


MO CHR YET 


0038 


FEB 5 


£0 


E6 




ERA 


I RGAP 1 


MOT TIME OUT 


0039 


F3B7 


86 


02 


GAP 


LDAA 


= 02 




0040 


FED9 


E7 


F042 




STAA 


OUTREG 


SLOW 


0041 


FEDC 


7F 


FC42 




CLR 


' OUTREG 


LEAVE LOW 



0042 FEDF 7E FA03 EMD JMP RDHDR 



FACE .JO ei 



l* 



Q001 








* 






002 








* 






0003 








*LEAD HEADER J 


AQB A.iD 


0004 








*F0R HICr.OCOM 


CASSET' 


0005 








* 






oooe 


0200 








OFiG 


SFAOO 


007 








*OFiI GEi-J 


IS LOG. of a: 


008 








* 






009 


FAOO 






IRGAP 


ECU 


iEBBS 


001C 


FACC 






CASIW 


EQU 


SFB7E 


0011 


FAOO 






BLKW All 


ECU 


Www 


012 


FAOC 






ELKW+ 1 


ECU 


S34 


0013 


FACC 






NOPRUT 


ECU 


S3A 


0014 


FACC 






EFRFTE 


EQU 


S3C 


0015 


FAOC 






BFFiP+ 1 


ECU 


£3D 


0016 


FAOO 






EFESZE 


ECU 


S3E 


0017 


FAOO 






BFRS+ 1 


ECU 


S3F 


18 


FAOO 






SYtfC 


ECU 


£16 


019 


FACC 






ESC 


ECU 


SIB 


020 








* 






0021 








* 






0022 


FAOC 


7£ 


F.BE8 


RDHDRY 


JMF 


IRGAP 


0023 


FA0 3 


EL 


FB7E 


RDHDR 


JSR 


CASliJ 


CC24 


FAC6 


81 


16 


RDHDR 1 


CMPA 


= SYrtC 


C025 


FA03 


26 


F9 




ME 


RDHDR 


0026 


FAOA 


ED 


FE7E 




JSR 


GAS'lN 


0027 


FAOD 


81 


IE 




CMPA 


= ESC 


028 


FAOF 


26 


F5 




E.JE 


RDHDR 1 


029 


FAU 


ED 


FE7E 




JSR 


CASIinJ 


030 


FA 14 


16 






TAB . 




0031 


FA 1 5 


ED 


FB7E 




JSR 


CASIM 


0032 


FA1S 


9B 


3D 




ADDA 


BFRP+1 


0033 


FA1A 


D9 


3C 




ADCE 


BFRFTE 


0034 


FA1C 


9 7 


3F 




STAA 


EFR'S*'l 


0035 


FA1E 


D7 


3E 




STAE 


EFRSZE 


0036 


FA20 


ED 


FB7E 




JSR 


CA'SiN 


0037 


FA 2 3 


36 






PSHA 




0038 


FA24 


BD 


FB7E 




JSR 


CASIiJ 


39 


FA27 


D6 


3A 




LDAB 


MOPRMT 


C040 


FA29 


33 






PULE 




C041 


FA2A 


27 


06 




-BBC 


REH-DR2 


042 


FA2C 


F7 


E03E 




STAB 


SE03E 


0C43 


FA2F 


B7 


E03F 




STAA 


4E03F 


044 


FA32 


7D 


0033 


RDHDE2 


TST 


BLKWAM 


045 


F A3 5 


27 


OB 




EEC 


RDHDR3 


0046 


FA3 7 


Dl 


33 




GHFE 


ELKtfAM 


0C47 


FA39 


26 


04 




KsJE 


BADWAM 


043 


FA3E 


9 1 


34 




CMPA 


BLK14+ 1 


049 


FA3D 


27 


3 




EEC 


RDHDR 3 


050 


F A3F 


7E 


'FSES 


BADw'AM 


JMP 


IRGAP 


051 


FA42 


39 




RDHDR3 


RTS 




0052 








* 






0053 








*, 






054 








* 






0055 








* 






0056 








* 






0057 








* 






058 








* 







INITIALIZE 

:E DF.IVER 
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.:o cz 



Z<> 



CO 59 
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C0 60 
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o o e i 








*IiJI TIAEIZE 
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-;~ 








0C63 


PA43 






OFF 


ECU 


i.51 




DC 64 


PA43 






AC I AwO 


ECU 


£38 




65 


PA4 3 






OUTEEG 


ECU 


SF042 




06 6 


FA43 






CO.Miii-b 


LGiU. 


£FC43 




0067 








v 








68 


PA43 


CL 


0000 


I ij TE zx 


LDX 


= 0000 




69 


P A 4 6 


FF 


PC 42 




STX 


OUTEEG 




0070 


P A49 


86 


PP 




i- DAA 


= £FF 




0071 


P A4E 


E7 


F042 




3TAA 


OUTRLG 




0072 


PA4Z 


36 


04 




E DAA 


= £04 




7 3 


PA50 


B7 


F043 




STAA 


CO.'vfEEG 




0C74 








* 








CC75 


FA53 


DE 


33 


I.JTEZ1 


LDX 


ACI ArtO 




00 76 


FA55 


36 


13 




L DAA 


= £13 




077 


FA57 


39 




EEsii EX 


RTS 






07S 








* 








CO 79 








* 








08 








♦ REPLACE CODE 


AT FBOO 


wl TH 


COS 1 








,*THZ FO 


LLOVIdG: 




CCS 2 


FA58 








ORG 


iFBOO 




08 3 








* 








08 4 


FEOO 


ED 


FA43 


IWTLZ 


JSR 


IWTLZX 




08 5 


FLOS 


A 7 


00 




STAA 


0.»X 




08 6 


PEC 5 


.8 6 


51 




EDAA 


= OFF 




08 7 


FEO 7 


A7 


OC 




STAA 


OjX 




CC8S 


FB09 


39 
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Electronic Read/Write 
Tape System 

The Micro Read/Write Digital Data 
Storage System is a complete 
digital input/output system de- 
signed for use in storing and 
retrieving digital information that is 
encoded and decoded by the user. 
In addition to complete electronics, 
the Electronic Read/Write System 
contains sensors for both 
EOT/BOT and Write Permit. 
When coupled with a micro- 
processor or other CPU (or the 
appropriate hardware logic) an 
Electronic Read/Write System 
becomes a complete serial data 
storage and retrieval system at a 
fraction of the usual cost. Because 
they leave the encoding and 
decoding to the user, Electronic 
Read/Write Systems permit the use 
of any bit-serial, self-clocking 
code. 
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COMPUTERWARE 

1512 Fncnitas Blvd 
ENC'NITAS. CALIFORNIA 92024 



July 27, 1979 



Dr. Jeffrey Brownstein 

2 Tor Road 

Wappingers Falls, NY 12590 



Note: ir eNoatH or 
\ae CAN Bom 



C> 



Dear Dr. Brownstein, 

We have been receiving customer orders for cassette BASIC from 
sphere owners who write that they have been referred by you, 
who will provide t.;\e uatohes they need. 

First, we would like to thank you for referring the orders to 
us and providing the service to the sphere owners* We appre- 
ciate your honesty and support! ** 

Secondly, we would like to offer you a "dealer" type price 
schedule on copies of cassette BASIC if you would like to pur- 
chase them for resale directly. 

Copy 
Quantity Discount Price 

" "2-3 Z5T~ T2T3TT 

«-5 30X $21.00 



6-10 



35% 



$19.50 



Of course, we will continue to fill any orders we receive and 
will inform sphere owners to your service. 

Thank you for your continued interest and support. 

Sincerely, 

Sue Searby s^ 
Computerware " 



^ J 



SCOTT aDaMS GRAPHICS SOFTWARE. 



We Have complete listings for the software for Scott 
Adams Graphics Boards. They will not publish well, 
please contact Jeff Brownstein for individual copies. 
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R^.ger and other SI- 'HERE users, 

Afte r reading the SPHERE CRT -80 controller, I realized that it had 
the makings c,f a powerful multiple/split screen editor driver controller. 
When I ins ected the code closely, I even found that the modifications 
generally speeded it up and didn't cost any extra memory (trading some 
in-line bytes for some in page 0). 

By making CRTBEG, CRTEND, LINSIZ, LNCTR, and SCRLFG all 
p age locations instead of equates or program constants, a 9byte 
SCREEN CONTROL BLOCK, is created (which also includes CSRPTR) 
uhich can be filled and changed by your program to give, at your command 
different screen areas within the screen memory area as a whole. 

This alto allows the same code to be used with different sized 
screens, just by changing the parameters in the control block. Now the 
code can go into a PROM and not have to be changed when you ungrade 
your 16 x 32. 

The changes to the code published are pretty simple: 
1. Remove all '#'s for the above variables 
2. Create page labels for all the above variables, 
3. Recode the portion at CRT36A, whore LINSIZ is used as 
an index offset. The following should work 



CRT36A 


JSR 


PSHX 




LDA B 


LINSIZ 




BSR 


CRTU33 




CPX 


CRTEND 




BEQ 


CRT36B 




LDA A 


, X 


'"■'■; '■ ' 


JSR 


PULX 




STA A 


, X 




INX 






BRA 


CRT36A 


CRT36B 


JSR 


PULX 




( BRA 


CRT034 ) 



There are various places that the code can be improved by minor 
changes; JSR's followed by RTS's, some JSR's become BSR' s by simple 
reordering, and if CRT036 thru CRT36B were ut in front of CRT. 34 
it would be able to fall through. 

Good luck, and thanks for all the work that goes into the newsletter. 




John Rible 

10 Fairfield St. 

Cambridge, MA u2140 
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ATTENTION: 



If you have not renewed your subscription to SPHERE, 

this issue was sent to you FREE. Please do not make 

this one your last one. 

RENEW NOW: 

$12 Domestic and Canada 
$16 Foreign 

SEND TO: 

Jeff Brownstein 
2 Tor Road 
Wappingers, NY. 12590 

NEXT ISSUE 



FINALLY, the 6k Character Mod to the SPHERE video 
screen. That's right, 6k characters. The mod 
will cost about $l£ dollars, it has already been 
done, it works, and it takes about 1-2 hours to do. 

FORTH: 12 pages of SPHERE FORTH information. Mods, 
Patches, New Words, Expanded dictionary listing. 



